ae 


—————————————————————eE 


DDDDDDDDDDDD 
DDDDDDDDDDDD 


DODDDDDDDDDD 
DDD DOD 


DDDDDDDDDODD 
DDDDDDDDDODD 


) DDD 
DDDDDODDDDDD 


ee 
as oe Oe 
mmm 


ee ae ns Oe ee Bes De Be Be es Od Bd ne Bd Bs Bo Oa bane Be ee eo 
ee eee ee 
Ge cin ey en Deeg Ee bet Oe Lee es Bs Dene ne Oe Dee Pd Ge bd ee Gt 
MMMMMMMMMMMMMMMenMMMmrmnceniecry 
MMMM MMMMMMMMMMMmMmMmnenicrniey 
MMMMMMMMMMMMMMMMMMmmMencnicny 


BBS SSSSVSSESSSS IE 


D 15 


*eF ILE**1D**XFDRIVER 

XX XX FFFFFFFFFF DDDDDDDD RRRRRRRR IIIII1 VV VV EEEEEEEEEE RRRRRRRR 
Xx XX FRFFFFFFFFF DDDDDDDD RRRRRRRR III] VV VV EEEEEEEEEE RRRRRRRR 
XX XX FF DD DD RR RR II VV VV EE RR RR 
XX XX FF DD DD RR RR II VV VV EE RR RR 

XX = XK FF DD DD RR RR Il VV VV EE RR RR 

XX XX FF DD DD RR Il VV VV EE RR RR 

Xx FFFFFFFF DD DD RRRRRRRR Il VV VV EEEEEEEE RRRRRRRR 
XX FFFFFFFF DD DD RRRRRRRR Il VV VV EEEEEEEE RRRRRRRR 

XX = XX FF DD DD RR RR Il VV WY EE RR RR 

XX = XX FF DD DD RR RR Il VV VW EE RR RR 
XX XX FF DD DD RR RR Il VV VV EE RR RR eeee 
Xx XX FF DD DD RR RR Il VV VW EE RR RR eeee 
XX XX FF DDDDDDDD RR RR IIIII1 VV EEEEEEEEEE RR RR eeee 
Xx XX FF DDDDDDDD RR RR I11111 VV EEEEEEEEEE RR RR eeee 
LL IIIIII SSSSSSSS 
LL II111] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL IIIIII SSSSSSSS 


XFD 
Tab 


R 
L 


VER 

of contents 
Hs 
) 1 

} HS 
78 

} 18 
i 
g é 


E 15 


= DR32 DRIVER 


DECLARATIONS 
LOAD_MICROCODE = Load microcode FDOT routine 
STANTBAIASFOT - stort Data FDT routine 
LOCK_BFR = Loc See into memory 
STARTIO Entry po nt to start 1/0 
INTERRUPT_SVC ecorret service routine 
HANDLE_INT = Handle the interrupt 
ORT_INT = Handle abort interrupts 
KT_AST = Queue packet AST 
ANCEC_IO™= Cancel 1/0 routine 
oy = yt Dump Routine 
- Unit initialization 


16-SEP-1984 00:21:10 VAX/VMS Macro v04-00 


Page 


0 


o V04-00 Page 


F 15 
vou000" ape sociege SSE 15ES 89:33:08 EORIVER. SRESRrDRIVER man: 1 a 


SEP=19 


Bag OBLYRQ- On52 ove 


7 
-l 


PARAAARAARAAAASASALSLLALASALLALELE LSS A LEE ELSE EERE EERE SEES RSE ESET SECS ESTE e 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
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:++ 
FACILITY: EXECUTIVE, I/0 DRIVERS 


ABSTRACT: 
THIS MODULE IS THE DRIVER FOR THE DR32. 


: ENVIRONMENT: KERNEL MODE, NON-PAGED 

> AUTHOR: STEVE BECKHARDT, CREATION DATE: 23-FEB-1979 
: MODIFIED BY: 

: v03-002 TCM0002 Trudy C. Matthews 29-F eb-1983 
; Update CPUDISP that determines if this is a DR780 or a 
$ DR750 to work on an 11/790 (take the DR780 path). 


v03-001 EAD0068 Elliott A. Drayton 01-Jul-1982 
Add code to prevent race condition with HALT bit. 


v02-012 TCM0001 Trudy s Matthews 31-Jul-1981 
Change all ''722''s to ''730''s. 


v02-011 EAD0011 Elliott A. Drayton 13-Feb-1981 
d code to raise and lower IPL to prevent 
race condition. 


v02-010 SRB0006 Steve Beckhardt 17-Sep-1979 
Modified the driver to support the D0R750. 
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ER 16-SEP-1984 1:1 AX/VMS Macro V04-00 Page 
§ et ioet yy 88 $hi08 YORIVER. SREIXEDRIVER.MAR: 1 . 
117 IRPESL_CBLKADR=IRPESL_BCNT T344 : OFFSET OF COMMAND BLOCK ADDRESS 
118 IRPESL~BBLKADR=IRPESL_BCNT2+8 t OFFSET OF BUFFER BLOCK ADDRESS 
120 ; 

; DR32 DEVICE REGISTER DEFINITIONS 

1 ° 

124 SDEFINI DR 

125 SDEF DR_DCR -BLKL 1 : DR32 CONTROL REGISTER 

1 g _VTELD OR. DCR 0.<- 

1 TYP, 8>,- : ADAPTER TYPE 

1 8 4 SOEUR aS : I1D2 ERROR 

1 <IDZTOC, ,M>,- : 1D2 TIMEOUT CAUSE 

130 <ID2T0, .M>,- : 1D2 TIMEOUT 

131 <STALL, .M>, + DDI STALL 

1 : <IDIERR, .M>,= : 1D1 ERROR 

1 <ID1TOC, ,M>,- : 1D1 TIMEOUT CAUSE 

134 <1D1T0, .M>,- : ID1 TIME 

135 <RDS, ,M>,= : READ DATA SUBSTITUTE 

136 <CRD, ,M>,= : CORRECTED READ DATA 

137 <DCRHLT,,M>,=- : DCR HALT 

138 <DCRABT,,M>,- + DCR ABORT INTERRUPT 

139 <PKTINT,.M>,= + PACKET INTERRUPT 

140 <INTENB, .M>, - : INTERRUPT E 

141 + RESERVED 

142 chur’ “UP, .M>, - : ADAPTER POWER UP 

14 <PWR-DN, ,M>,= : ADAPTER POWER DOWN 

144 <EXTABT, ,M>,~ : EXTERNAL ABORT 

145 : BRP. on THE NEXT 7 BITS ARE USED BY 
146 ~ ; ONLY THE DR780 HAS THESE BITS 
147 - : IN THE DR_UTL REGISTER 

148 <FCIPE,,M>,- 3 FORCE cONThoE INTERCONNECT PARITY ERR. 
149 <FDIPE,.M>.= : FORCE DATA INTERCONNECT PARITY ERROR 
150 <ENPEAB, ,M>,- : ENABLE D.1. PARITY ERROR ABORT 

151 <WCSPE, ,M>,- : WCS PARITY ERROR 

13¢ <CIPE. A>» : CONTROL INTERCONNECT PARITY ERROR 
15 <DIPE : DATA INTERCONNECT PARITY ERROR 

134 : <PARERR AD. - + PARITY ERROR (OR OF LAST 3 BITS) 
156 

FH : DCR CONTROL FIELD A CODES (USED WHEN WRITING TO DCR) 

159 DCR_K_CLRPWRUP=*x100 : CLEAR POWER UP 

160 DCR7K =ELRPWRDN=*X200 ; CLEAR POWER DOWN 

161 DCRIK-CLRABTINT=*X4 : CLEAR ABORT INTERRUPT 

166 DCR_K ~CLRINTENB=*X50 3; CLEAR INTERRUPT ENABLE 

163 DCRIK~SET TINTENB=°X60 : SET INTERRUPT LE 

164 DCR7K~CLRHLT=*X700 : CLEAR HALT 

166 ; : DCR CONTROL FIELD 8 CODES (USED WHEN WRITING TO DCR) 

168 DCR_K_CLRCRD=*Xx : CLEAR CRD 

169 DCR7K “Sere aBtesk 909 : SET EX TERN ABORT 

170 DCR7K ~CLRPKTINT <0 0 : CLEAR PACKET INTERRUPT 

171 DCRIK"RESET=*x > RESET 

1% DCR7K~SETOSQT r312"15000 : SET OSEQ TEST 

173 DCR7K-CLROSQTST=*x600 : CLEAR OSEQ TEST 


(2) 


4 


a 


16-SEP-1984 00:21:10 VAX/VMS Macro v04-00 p 
gree 13be 00:50:00 FORIVER-carieepriver.mar:s? 2% 


4 17% 
4 175 $DEF  DR_UTL -BLKL 1 ; UTILITY REGISTER 
176 -VIELD DR_UTL,0,<- 
17 <RATE,8>,= ; DATA RATE 
00 128 * + RESERVED 
00 17 <VALID, .M>,- : WCS VALID 
0 180 <,15>,° : RESERVED 
008 181 - : NOTE : THE NEXT 7 BITS ARE USED 
008 7 : - + DR780 ONLY. THE DR750 HAS THESE BITS 
008 1 - : IN THE DR_DCR REGISTER. 
0008 184 <FCIPE,,M>, t FORCE CONTROL INTERCONNECT PARITY ERR. 
0008 185 <FDIPE, .M> + FORCE DATA INTERCONNECT PARITY ERROR 
0 1 6 <ENPEAG, ,M>,- + ENABL Ee. Dt - PARIT Y ERROR ABORT 
000 188 <CIPE. A>» : CONTROL INTERCONNECT PARITY ERROR 
0008 189 <DIPE.-M>.- + DATA INTERCONNECT PARITY ERROR 
0008 190 <PARERR, ,M>,= + PARITY ERROR (OR oF LAST 3 BITS) 
oe tn ea 
0008 198 SDEF  DR_WCSA LKL 1 : WCS ADDRESS 
000C 194 -VIELD OR WCSA. a. <- 
000€¢ 195 <SEL, : SELECT (LOW OR HI PART OF MICRO WORD) 
000C 138 <ADDR, “105, ~ ; ADDRESS 
000¢ «19 >; : RESERVED 
o00¢ 198 ; cues, (>, - + LOAD WCS FLAG (DR750 ONLY) 
000¢ 200 _VIELD DR_WCSA,0 
000¢ 201 <LSADR, 1s. - ; LOCAL STORE ADDRESS (DR750 ONLY) 
$008 208 ’ 
900¢ 04 SDEF § DR_WCSD .BLKL 1 : WCS DATA 
00006014 9010 06 -BLKL 1 : RESERVED 
0014 08 SDEF  DR_SBIADR -BLKL 1 : SBI ADDRESS 
0018 10 SDEF  DR_SBIBCNT -BLKL 1 : SBI BYTE COUNT 
001¢ 1 SDEF § DR_DDIBCNT .BLKL 1 : DDI BYTE COUNT 
$030 54 
9020 i t DEFINE USER CONTROL REGISTER (GO BIT) 
1 o 
00000200 : .=*X200 : STARTS ON 2ND PAGE OF DR ADDRESS SPACE 
0204 
4 


POPPIPIPIPIPIPINININPIPINPINPININININIPINININININININD 


0 SDEF  DR_USER BLKL 1 : USER CONTROL REGISTER 
1 _VIELD DR_USER,O,<- 
g <GO, ,M>.= : GO BIT 
<,31>,- : RESERVED 
4 > 
5 
$ : DEFINE LOCAL STORE ADDRESSES FOR DR780 
: : THESE ARE ADDRESSED AS OFFSETS FROM THE FIRST DEVICE REGISTER 
0 a 


XFDRIVER - DR32 DRIVER -SEP=-1984 YAX/ VES Macro V04-00 Page 
FONn OUD DECLARATIONS "e- iets 88: $530 YORIVER. SRCIXFDRIVER.MAR; 1 . 3). 
00000400 it 1 .=°x400 ; STARTS ON 3RD PAGE OF DR ADDRESS SPACE 
4 § 5 SDEF  OR_7 00st -BLKL 1 : DR32 STATUS LONGWORD 
404 4 SDEF § DR7780"SBR “BLKL 1 + SYSTEM BASE REGISTER 
408 5 $DEF  § DR~780"GBR “BLKL 1 : GLOBAL PAGE TABLE BASE REGISTER 
40¢ 6 SDEF DR? 9 CMOBVA .BLKL 1 + BASE VIRTUAL ADDR. COMMAND BLOCK 
41 SDEF  DRT7B0"CMOLEN  <BLKL 1 + LENGTH OF COMM 
414 8 SDEF  OR@? O~CADSVAPT “BLKL 1 + SVAPTE OF COMMAND BLOCK 
418 SDEF  DR7780"BFRBVA .BLKL 1 : BASE VIRTUAL ADDR. BUFFER BLOCK 
4ic 40 $DEF  DRT780"BFRLEN  BLKL 1 : LENGTH OF BUFFER BLOCK 
4 9 i SDEF §§ DRI780BFRSVAPT .BLKL 1 ; SV APTE OF BUFFER BLOCK 
424 4 3 
0424 244 : DEFINE LOCAL STORE ADDRESSES FOR DR750 
0424 245 : THESE ARE ADDRESSED BY LOADING THEIR ADDRESS INTO THE DR_WCSA 
0% ‘ 4g ; REGISTER AND READING OR WRITING THE DR_WCSD REGISTER 
424 248 ; 
00000000 0264 49 20 ; START OF LOCAL STORE REGISTERS 
0000 251 $DEF  DR_750_DSL .BLKB : DR32 STATUS LONGWORD 
0001 3 SDEF  DR77507SBR “BLKB + SYSTEM BASE REGISTER 
000¢ 53 SDEF  DR7750"GBR “BLKB 1 : GLOBAL PAGE TABLE BASE REGISTER 
000 54 SDEF  DR-750-CMDBVA <BLKB 1 : BASE VIRTUAL ADDR. COMMAND BLOCK 
0004 255 $DEF  DRT7507CMDLEN <BLKB 1 + LENGTH OF COMMAND BLOCK 
0005 256 SDEF DRI75O“CMDSVAPT -BLKB 1 : SVAPTE OF COMMAND BLOCK 
0006 257 $DEF DR-750_BERBVA BLKB : BASE VIRTUAL ADDR. BUFFER BLOCK 
0007 258 $SDEF  DRT750“BFRLEN -BLKB 1 : LENGTH OF BUFFER BLOCK 
9008 39 SDEF  DR-7507 ~BFRSVAPT *BLKB + SVAPTE OF BUFFER BLOCK 
0009 261 SDEFEND DR 
0000 62 
$000 564 ; 
0000 365 : DR32 SPECIFIC UCB OFFSETS 
$33 See 
9000 268 SDEFINI UCB 
000000A0 9009 20 . .=UCBSL_DPC+4 
00A0 ik _VIELD UCB,0 : DEFINE BITS FOR UCB$W_DEVSTS 
OAO 27 <ADPPURUP.. .M>, - : ADAPTER POWER UP 
OA 74 <FKLOCK, .M>,- : FORK INTERLOCK BIT 
ond 75 <ABORT, .M>,- : ABORT PENDIN 
OA 7 <DR750,,.M>,- : INDICATES DEVICE IS DR750 
ee j 
OA iS SDEF  UCBSL_DCR .BLKL 1 : STORED COPY OF DCR REGISTER 
OA4 0 SDEF yeBst SAVSTATUS .BLKL 1 : SAVED STATUS FOR DRIVER ABORTS 
OAs 1$ UCBSL“SAVDCR  .BLKL 1 : SAVED COPY OF DCR REGISTER 
000000AC aC $ UCBSK_SIZE=. 
bat 5 SDEFEND UCB 
832i 
0 
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YOen OO DECLARATIONS g-3é EP=19 19be 88 $5i0 YORIVER.SREIXFDRIVER.MAR: 1 . 
e 83 : OWN STORAGE: 
9 :% 
999 3 : DRIVER PROLOGUE TABLE 
80 94 DPTAB END=XF END. - : END OF DRIVER 
00 95 3 DA =DR ; ADAPTOR TYPE 
00 %6 CBS1ZE=UCBSK _SIZE.-  ; UCB SIZE 
00 97 VARS XFDRIVER™ : DRIVER NAME 
09 99 DPT_STORE INIT 
0038 301 DPT_STORE UCB,UCBSB_FIPL,8,8  ; FORK IPL 
903¢ 0¢ pees 
003¢ 303 : FORK IPL Ok? 
003C 304 ieee 
003¢ 305 DPT_STORE UCB,UCBSL_DEVCHAR.L.=- ; DEVICE CHARACTERISTICS 
003¢ 06 <DEVSM_AVL- 3 AVAILABLE 
003¢ 307 'DEVSM-ELG- ; eRROR LOGGING ENABLED 
003¢ 308 iDEVSM-RTM- t REAL TIME DEVICE 
003¢ 309 'DEVSM_ 1DV= ; INPUT DEVIC 
003¢ 310 i DEVSM~ODV OUTPUT DEVICE 
0043 «311 DPT_STORE UCB, ocesa _DEVCLASS ,B, DCS REALTIME : DEVICE CLASS 
0047 312 DPT“STORE UCB.UCB$B-DIPL,B,22 ; DEVICE’ IPL 
0048 «31 
0048 314 
0048 315 DPT_STORE REINIT 
0048 316 
0048 317 DPT_STORE 0B, DDBSL_DDT,D,XFSDDT : DDT ADDRESS 
0050 318 DPT-STORE CRB.CRBSL-INTD+4,D, INTERRUPT INTERRUPT SERVICE 
0055 19 DPT“STORE CRB.CRBSL—~INTD+VECSL NUNITINIT® D C UNIT. INIT ; UNIT INIT. 
005A 21 DPT_STORE END 
0000 ¢ 
0000 323 ; 
9000 55 ; DRIVER DISPATCH TABLE 
0000 6 DDTAB Xf, - : DEVICE NAME 
0000 7 STARTIO,- : START 1/0 ENTRY POINT 
0000 8 0,- : UNSOLICITED INTERRUPT 
0000 9 FUNCTABLE,- : FUNCTION DECISION TABLE 
0000 0 CANCEL 0. : CANCEL 1/0 
999 1 RE ODU : REGISTER DUMP ROUTINE 
0 : <36 : SIZE OF DIAGNOSTIC BUFF 
9009 33 <ERosee "5 “REGSAV+4+160> : SIZE OF ERROR LOGGING BUFFER 
3 iF 
3 $: 3: FUNCTION DECISION TABLE 
0 8 EUNCTABLE: 
0 39 FUNCTAB g<LOADMCODE .- > LEGAL FUNCTIONS 
$3 41 STARTDATABD 
04 43 FUNCTAB : NO BUFFERED 1/0 FUNCTIONS 
04 4 FUNCTAB LOAD_MICROCODE ,<LOADMCODE> > LOAD MICROCODE 
54 344 FUNCTAB STARTDATA_FDT,<STARTDATA, ~ : START DATA 
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R 
I 
8036 $02 STARTDATAP> ; START DATA PHYSICAL 
60 46 


COMPLETION CODES: 


oO 
ao 
OOOO 000000900 00 G0 0000 
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XFDRIVER - DR32 DRIVER 16-SEP-1984 21:1 AX/VMS Macro V04-00 P 
FON nOU8 LOAD_MICROCODE = Load microcode FDT rout mets $b :3hi0 DRIVER. SRCIXFDRIVER.MAR; 1 oe dy 
| oe rk be ~SBTTL LOAD_MICROCODE = Load microcode FDT routine 
O8 20 : FUNCTIONAL DESCRIPTION: 
06 26 ; This routine is an FDT routine which performs the Load Microcode 
be 53; 10. It locks the microcode image in memory, verifies that the 
6 54; device is not busy. loads and then verifies the microcode. 
be8 55 ; Verification consists of addressing all the locations in the wCS 
006 2$ ; and checking for ; parity error. 
Beep 57; f the microcode is loaded successfully, the the WCS valid bit 
06 38 : is set in the DR32. 
944 59 ; This routine also sets the data rate to the last value stored 
8020 r$' : in the device dependent characteristics. 
9060 6¢ ; CALLING SEQUENCE: 
0060 64: Callec from the FDT routine dispatcher in the Q10 system service. 
B0e0 22 ; On completion jumps to EXESFINISHIOC. 
9069 $ > INPUT PARAMETERS: 
0060 +4 : R3 Address of I/0 packet. 
0060 0; RG Current process PCB address. 
0060 71 3 R5 Address of UCB. 
0060 72 ; R6 Address of CCB. 
0060 73 3 PI(AP) Address of microcode image. 
B2e8 R 8 P2(AP) Size (in bytes) of microcode image. 
0060 376 : IMPLICIT INPUTS: 
0060 77; 
oo60 379; om 
9060 80 : OUTPUT PARAMETERS: 
494 : RO Contains a completion code 
960 ; IMPLICIT OUTPUTS: 
960 : The WCS valid bit is set in the DR32. 
0 : 
906 : These are in addition to the ones EXESWRITELOCK can return: 
0960 ; SS$_NORMAL Successful completion F ; 
60 3 SSS_PARITY Parity error detected during microcode verification 
060 3 SS$_DEVACTIVE Device is active 
beh ; : SSS_POWERFAIL Device is powered down 
ate 3 > SIDE EFFECTS: 
6 38 : None 
6 & ’ 3 
° 2 eo 
60 4 : LOAD_MICROCODE : 
50 6C 00 006 404 MOVL P1(AP) ,RO : Get address of microcode image 


= FAMMOOM 2 BOK KOH TOMMOODZ EO KOK ITO WM OOOZ EO KCK TOWN IOOZ EF ACH TOA MMOOW 


B 16 


XFDRIVER = DR32 DRIVER 16-SEP-1984 00:21:1 AX/VMS Macro v04-00 Page 1 
ia it LOAD_MICROCODE = Load microcode FDT rout ety 7 $3300 DRIVER.SRCIXFORIVER.MAR; 1 . (3) 
51 O4A C $3 405 MOVZWL < k ; Get size of teoge (in bytes) 
, D 6 406 mMOVQ RO,RI ; Save address and size in R9 and R10 
09000000 gt 16 006A 407 JSB GEXESWRITELOCK - Lock image into memory 
64 A 0 AA 20 408 BICW  #UCBSM_POWER,UCB$W_STS(R5) ; Clear powerfail bit 
grt 419 ASSUME IDBSL_CSR EQ 0 
54 4 AS DO 0074 ti¢ MOVL UCBSL_CRB(R5) ,R4 ; Get pointer to CRB 
54 C B46 «0 gre 217 MOVL @CRBSC_INTD+VECSL_IDB(R4S.R ; Get address of ist device CSR 
Sor¢ 415 10$: ; R4 contains address of Ist device CSR. Make sure device has 
07¢ 21$ 3; power before accessing any device registers. Then, if the device 
Bre “18 3; 18 not busy, reset it and clear WCS valid. 
Beet £33 ASSUME UCB_V_ADPPWRUP E€Q 0 
50 0364 BF 3C¢ bore 421 MOVZWL #SS$_POWERFAIL,RO ; Assume error 
1168 ASE 0081 4 : BLBC  UCBS@_DEVSTS(R5),15$ | : Branch if adapter has no power 
50 02C4 BF 3C $oBs 424 MOVZWL #SS$_DEVACTIVE,RO 3; Assume device is active 
QOBA 425 DSBINT UCB$B_FIPL(RS) ; Raise IPL to fork level 
03 64 AS 08 1 0091 426 BBC #UCBSO_BSY ,UCBSW_STS(R5) ,17 ; Br. if UCB is not busy 
00A7 1 0096 427 15$: BRW 0$ 3 Finish 1/0 
64 4000 8F C 0099 428 17$: MOVZWL #DCR_K_RESET,DR_DCR(R4) ; Reset DR32 
00000800 8F CA OO09E rit BICL #0R_OTC_M VALID? - 3; Clear WCS valid bit 
04 A4 00AS 430 DR_OTL(R4Y 
QO0OA6 431 ENBINT 3; Lower IPL 
Q0A9 $36 
BOA $37 ; Load last data rate saved in device dependent characteristics. 
50 04 A&4 DO OOA9d 138 MOVL DR_UTL(R4) ,RO ; Get contents of Utility reg. 
50 44 AS 90 OOAD 436 MOVB § UCBSL_DEVDEPEND(RS),RO : Load data rate 
04 AG 50 00 poet +30 MOVL RO,DR_UTL(R4) ; Put back into Utility reg. 
0085 439 ; Set up to load microcode. RO will contain address of microcode image. 
00B5 440 ; R1 will contain size of image in bytes. Convert this to number 
00B5 441 3; of WCS words by dividing by 5 (each WCS word contains 5 bytes). 
boee rr ; R2 will be used to contain WCS address. 
00B5 444 ASSUME DR_WCSA_V_SEL EQ 0 
0085 445 ASSUME DRIWCSA-VZADDR EQ 1 
50 59 7D 00B5 447 MOva R9,RO ; Restore address and size in RO and R1 
51 9 6 0B8 $68 DIVL #5,R1 ; Convert bytes to number of WCS words. 
1 13 00BB 44 BEQL «= 40$ ; Load zero words 
51 D7 QOBD 450 DECL R1 ; Convert to address of highest word 
51 02 C4& QOBF 451 MULL #2,R1 ; Account for address being incr. by 2 
5B 51 00 pce 126 MOVL R1,R11 : Save number of WCS words 
52 «4 3) te? CLRL R2 ; Start loading at zero 
O¢7 455 20$: ; Load next WCS word. Each word gets loaded in two parts. First 
C7 = 456 ; four bytes get loaded and then one byte gets loaded. 
C7 3 = 457 3; On the DR it is necessary to set the WCS flag bit to | 
C7 +28 3; distinguis between gr.cess ing WES and local store. This bit has 
C7 123 3; no effect on the DR780. 
80000000 8F (C9 C7 = 461 BISL3 #OR_WCSA_M_WCS,- ; Load WCS address 
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a C ra) R2,DR_WCSA(R4) 
aoSons D D0 4 MOVL.  (RO)+7DR_WCSD(R4) ; Load four byte 
08 AG 582 00001 C D4 re: BISL3 mR ESA " -WCS!- Loge wes edéress and set SELECT bit 
DD 465 DR-WCSA_M-SEL,R2,DR_ weshcR 
OC A4 80 9A 00DD 466 MOVZBL (ROT+,DR—W WeSD (RA) ; ead one byte 
FFEO 52 02 «Oe 43) 22 ACBL R1,42,R2,20$ 3; Repeat load loop 
OF7 489 ; Verify WCS by addressing each word (look for parity error later). 
OE7 471 ASSUME DR_DCR €EQ 
0E7 af6 ASSUME DR_UTL EQ 
34 ot? ASSUME OR “UTL_ ML PARERR OO DR_DCR_M_PARERR 
50 54 00 OOE7 475 MOVL R4,RO i Set speerese of DR750's register with 
OEA 278 He error a DR_DCR) 
03 68 AS 03 £0 OQOEA 47 BBS ayce V_DR750,UCBSW_ pevsr6« a 5b aig if DR750 
50 04 CO EF 478 ADDL RO ; Get address of DR780's 1[goister with 
00 $ 479 ; parity error bit (DR_ 
60 80000000 8F C8 Bae 480 22$: BISL WOR_UTL_M_PARERR,(RO) ; Clear parity error 
2 D4 OOF9 481 CLRL 3; Clear WCS address 
sppoogoe 8F C9 are {| 25$: BISL3 #OR WCSA_M_WCS,- ; Load WCS address 
08 A 52 101 48 2,BR_WCSATR4G) 
51 “oc AS 090 0104 484 MOVL Re “WCSD(R4) RI ; This allowes parity errors to be seen 
FFED 52. 02)—=—«i*SBSCé@&hn*”S 0108 485 ACBL R1T,#2,R2,25$ : Repeat verify loop 
Bic th ; Reload if a powerfail occurred while loading. 
Q10E 489 DSBINT #31 ise IPL to lockout powerfail 
06 64 A5 05 €5 0114 490 BBCC #UCBSV_POWER,UCBSW_ stscréy” 308 : Branch if no powefail 
0119 491 ENBINT F Powerfail occurred; lower IPL and 
FF5D) 0 «=—331—s«*011€ 136 BRW 10$ 3 retry 
O11F 49 
OU 494 ASSUME DR_UTL_V_PARERR EQ 31 
60 D5 O11F 496 30S: TSTL (RO) ; No powerfail - Test for parity error 
15 19 0121 497 BLSS 60$ aren if rae error 
04 AS 00000800 8F CB big5 498 BISL  #DR_UTL_M_VALIS,SA_UTL(R ri); Set pwc 
4 ; 44 ENB INT 3; Lower 
64 0600 8F 3C oie 501 40$: MOVZWL #DCR_K oA ag ad DR_DCR(R4) ; Set interrupt enable 
50 01 3C¢ O1 206 MOVZWL #SS$"NORMA 3; Return success status 
081i bi36 50 BRB 80$ ~ ; Return to user 
ae 308 
iH 306 60$: ; ERROR - Parity error during WCS verification 
13 508 ENBINT 3 Lower IPL 
50 O1F4 BF 3¢ 149 44 MOVZWL #SSS$_PARITY,RO ; Completion code 
14 311 
O10 216 80$: ; Common return 
00000000'GF 17 0140 514 JMP G*EXESF INISHIOC 3; Finish 1/0 
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; -SBTTL STARTDATA_FDT = Start Data FDT routine 
FUNCTIONAL DESCRIPTION: 


This routine is he Start Data Q10 FDT routine. After it does 
some at rer check on the user's gognen nd table, it allocates 

an 1/0 Request Packet Extension (IRPE) and Links it onto the IRP. 
Then the user e command block and buffer block are locked into 
penory « with the context for these regions stored in the IRPE. 
Finally, the address of the DR32's go bit is returned to the user 
and the IRP is queued to the driver. 


CALLING SEQUENCE: 
vets from = FDOT routine dispatcher in the 
On completion, jumps to either EXE$ 
EXESF INISHIOC Ton errors that complete the I/ 
(on errors that abort the 1/0). 


INPUT PARAMETERS: 


we 
a" 
ro 
zw 
P= 


n-~3 


on success), 


ESABORTIO 


R3 Address of IRP 
R4 Current process PCB address 
R5 Address of UC 


R6 Address of CCB 
P1(AP) Address of command table 
P2(AP) Size (in bytes) of command table (must be XFSK_CMT_LENGTH) 


IMPLICIT INPUTS: 
The format of the command table is: 


PI(AP) => teenennnnnnnnnnnnnnnnnnnnnnnn-- + 
' Size of command block XFSL_CMT_CBLKS2Z 

H (in bytes 

' Address of Command block 

| (Must be quadword aligned) 


fucececeeneeecesseceseowetcouse 


1 XFSL_CMT_CBLKAD 
Size of. y ote block 1 XP SL_CMT_BBLKSZ 


XF$L_CMT_BBLKAD 


Address of Coches AST XFSL_CMT_PASTAD 
ne 


me ee ee ee ee em ee ee ee ed ed ed od od = = 6 od od = od = 3 2 = 2d wd = 3 = 3 2d 8 8 dd 3 3 od 3 2 3 
ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
AARAAAAAAAAAAAAAAAPMAAPAMAAAAAAAAAAAAAAAPAAAAAAAAAAAASAAAAAAAM LWW 


rout 
per eee cee cee ee eee ee eee eee + 
Packet AST parameter ' XFSL_CMT_PASTPM 
poocese cnvecseoucsesescucccssce + 
H : Flags | Data : XFSB_CMT_RATE 
H H : Rate H XF$B_CMT_FLAGS 
H Address of longword to {| XFSL_CMT_GBITAD 
i receive address of GO bit | 


~-— 
en 
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146 73 3 
178 oe ; OUTPUT PARAMETERS: 
178 6 : RO Completion code (error returns only) 
146 A: $ IMPLICIT OUTPUTS: 
146 79 ; 
146 0; None 
146 2 13 
re ¢ 3; COMPLETION CODES: 
g178 384 ; Returned to EXESABORTIO: 
0146 586: SS$_ACCVIO Access violation 
Spe 28¢ 3 SS$_INSFMEM Insufficient dynamic memory 
0146 589: Returned to EXESFINISHIOC: 
0146 590 ; 
0146 591 ; SS$_IVBUFLEN Invalid buffer Length 
Se 238 3 SS$_BUFNOTALIGN Buffer not aligned correctly 
0146 594 : SIDE EFFECTS: 
. 0146 595 ; 
0146 596; None 
0146 597 ;-- 
0146 598 
0146 599 STARTDATA_FOT: 
0146 600 
0146 601 ; First verify that the command table is accessible and of the 
oiee 66 3; correct Length (XFSK_CMT_LENGTH bytes). 
50 6C 7D 0146 604 MOVa P1(AP) ,RO ; Get address of command table in RO, 
149 605 ; length in R1. 
5B 0O34C 8F 3C 0149 606 MOVZWL #SS$_IVBUFLEN,R11 3; Assume error 
20 51 D1 O14E 607 CMPL R1,#RFS$K_CMT_LENGTH : Is length correct? 
49 12 0151 608 BNEQ FINISH_I : No, finish 1/0 
8128 sf IFNORD R1,(ROJ,ACCESS_VIO ; Br. if command table is not accessible 
0159 3611 ; Copy command table onto stack so that it can't change (via 1/0, for 
8128 ol¢ 3; instance) while this FDT routine executes. 
5E 51 C2 0159 614 SUBL 1,SP ; Allocate space on stack 
38 BB OSC 615 PUSHR #*M<R3,R4,R5> ; Save some registers 
OC AE 60 51 28 F 4} 616 MOVC3S = R1 (ROS 12(5P) ; Copy command table onto stack 
38 BA 162 ats POPR #°A<R3,R4,R5> ; Restore registers 
165 619 3 Now check that the command block and buffer block sizes are 
165 620 3; greater than 0 and less than 2**29, that the command block is 
165 621 ; Quadword aligned, and that the location to store the GO bit 
0165 ? ¢ ; address is accessible. 
$f D5 0165 624 TSTL XFSL_CMT_CBLKSZ(SP) : Is command block size zero? 
3 13 0167 625 BEQL FINISH I : Yes. finish 1/0 
—E D1 0169 6 § CMPL XFS cal CBLKSZ(SP) «= ; Is comman biock greater than or 
20000000 8F 16 6 #*x200000 : equal to 2*#29? 
A 3 1 6 3 BGEQU FINISH IO ; Yes, finish I/ 
08 AE D5 O172 6 TSTL = XFSL_CAT_BBLKSZ(SP) : Is buffer block size zero? 
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OE AI HBL INSU cszcses,= fH a d!? greater en 
o~ 3 Is buffer reater than or 
20000000 8 7A 63 #°x30600000 S equal to 2*#297 © 
1B «#61€ «O17F) «66 BGEQ FINISH : Yes, finish 1/0 
5B 0324 ef Ns 181 634 MOVZWL ass OF NOTALIGN,R11 : Change completion code in R11 
04 AE eR 186 635 BITL #7,XFSL_CMT_CBLKAD(SP) ; Is command block quadword aligned? 
10 12 O18A 6 § BNEQ FINISH TO 3 No, finish 1/0 
18C 6 IFWRT #4,aXFSL_CMT_GBITAD(SP),-; Br. if location to store GO bit 
1 638 ALL_OK ; address is writeable 
019 639 
019 640 : 
813 641 3; Error returns 
19 otg : 
019 64 
19 644 ACCESS_VIO: 
= 2 132 o72 MOVZWL #SS$_ACCVIO,RO ; Store completion code 
bio¢ oth ABORT_I0: ; Come here with completion code in RO 
00000000'GF 17 sige ch JMP G*EXESABORTIO ; Abort 1/0 
B13¢ $3) FINISH_10: ; Come here with completion code in R11 
50 5B 00 019¢ $38 MOVL R11,R0 ; Move completion code 
00000000'GF 17 O19F 654 JMP G*EXESF INISHIOC : Finish 1/0 
O1A5 655 
0O1A5 656 
O1A5 657 ALL_OK: ; Ever yie ing checks out. Allocate an IRPE and Link it to 
01A5 658 3; the IRP. 
01A5 659 
53 DD O1A5 660 PUSHL R3 ; Save address of IRP : 
00000000'GF 16 O1A7 661 JSB G*EXESALLOCIRP ; Allocate an IRPE (returns addr. in R2) 
53 8EDO O1AD 666 POPL R3 ; Restore address of IRP 
—€3 50 €9 0180 66 BLBC RO,ABORT_10 ; Failed do to insufficient memor 
OA A 5 90 0183 664 MOVB #OYNSC_IRPE eg by TYPE(R2) ; Change type from IRP to IRPE 
54 A 2 DO 0187 665 MOVL  R2,IRPSL_EXTEND(R3) : Link IRPE onto IRP 
2A AS 0800 8F AB O1BB 666 BISW #IRPSM_ERTEND IRP$W_STS(R3) ; Set extend bit in status word 
2A Ag B4 01C1 667 CLRW =—s IRPESW=STS(R2S ; Clear status bits in IRPE 
¢f A D4 O01C4 668 CLRL IRPESL_SVAPTE1(R2) ; Clear SVAPTE for region 1 
8 as D4 Bee 669 CLRL OPE TL .OvAPTES (RE) ; Clear SVAPTE for region 2 
SA CS dO Hos on8 MOVL R2,R1 : From now on R10 points to IRPE 
01CD ore 3 Now lock command block and buffer block into memory soving 
Bee 67 3 the context (SVAPTE, BCNT, and BOFF) in the IRPE. R3 points to the 
aS ere : IRP, SP points to the command table, and R10 points to the IRPE. 
10D 676 ASSUME IRPESW_BOFF1 EQ IRPESL_SVAPTE1+4 
168 44 ASSUME IRPESW_BOFF2 EQ IRPESL_SVAPTE2+4 
51 8€ odO O1CD 679 MOVL (SP)+,R1 :; Get Length of command block 
50 of D 100 680 MOVL (S$P)+,RO ; Get address of command block | 
34 AA ee 1D 681 MOVL R1, IRPESL_BCNT1(R10) ; Store length of command block in IRPE 
44 AA ; D D7 6 § MOVL RO, IRPE BLKADR(R10) ; Store address of command biock in IRPE 
1 10B 6 BSBB LOCK BFR 3 Lock command block into memory 
$c A 7D Q1DD 684 MOVa eat SVAPTE(R3),- : Store SVAPTE and BOFF in IRPE 
C AA 160 685 IRPESC SVAPTET (RIO) 
51 8E& DO OTE 686 MOVL (SP)+,R ; Get length of buffer block 


el 
. re 
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50 f De \e3 687 MOVL as? a0 : Get address of buffer bloc 
40 AA D 3 é 8 MOVL R TREE L_BCNT2(R10) ; Store Length of buffer block in IRPE 
48 AA Ht 1 6 MOVL RO, pRpest _BBLKADR ( OOD 3; Store addr. of buffer block in IRPE 
23 10 O1FO 690 BSBB Ss LOK ; Lock buffer block inte sense cy 
ef A 7D 1F 691 MOVQ Inst CV APTE( (R3),- 3 one SVAPTE and BOFF in IRP 
8 AA 1F 63¢ IRPESC. SVAPTE2(R10) 
we ee 144 937 CLRQ IRPSL_SVAPTE(R3) 3 Clear SVAPTE, BOFF, and BCNT in IRP 
SIEA 695 ; Now copy packet AST address and parameter into IRP and 
Bite $36 3; return address of GO bit to user. 
gira $38 ASSUME IRPSL_PKTASTPRM EQ IRPSL_PKTASTADR+4 
Bia $73 ASSUME IDB$L-CSR EQ 0 
40 a3. BE «7D «(O1FA—s 701 mMOvVQ (SP)+,IRPSL_PKTASTADR(R3) ; Store packet get address and 
1FE oe 3 parameter in IRP 
3C AS. 8 dO a 70 MOVL (SP)+, IRP$B_RATE(R3) ; Store data rate and PS. in IRP 
51 ‘ A dO 0 704 MOVL UCBsL CRB(R5),R1 ; set address of CRB 
00000200 8F C1 0206 705 ADDL3 #DR_USER, tore address of €0 bit 
9— 2C BI 6 ¢ 206 SCRBSiC INTD*VECSL_ 1pBcrt}, 3t pss 
00000000'GF 17 OOF 708 JMP G*EXESQIODRVPKT ; Queue packet to driver 
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Do 
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-SBTTL LOCK_BFR = Lock a buffer into memory 


or 
nn 


;++ 
; FUNCTIONAL DESCRIPTION: 


This routine is called from the Start Data FDT routine to lock 

the command block and the buffer block into memory. If either 
lock fails, this reyt ine unlocks any locked memory and deallocates 
the IRPE before during a coroutine Peturn to EXESMODIFYLOCKR. 


; CALLING SEQUENCE: 


BSBB LOCK_BFR Note that if the lock fails, this routine 
returns to EXESMODIFYLOCKR, not the caller. 


; INPUT PARAMETERS: 


RO Address of buffer to lock 
R1 Length of buffer (in bytes) 
R3 Address of IRP 

R4 Current process PCB address 
R5 Address of UC 

R6 Address of CCB 

R10 Address of IRPE 


> IMPLICIT INPUTS: 
; Offsets IRPESL_SVAPTE1, IRPESW_BOFF1, and IRPESL_BCNT1 in the 
3 IRPE describe fhe previously locked area. 

: OUTPUT PARAMETERS: 


None (returning to the caller implies success) 
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ee IMPLICIT OUTPUTS: 
746 Offsets IRPSL_SVAPTE and IRPS$W_BOFF in the IRP describe 
me the svapte and the byte offset of the locked area. 
150 ; COMPLETION CODES: 
751 None 
752 : 
£37 ; SIDE EFFECTS: 
755 reviously mentioned, on a lock failure the previously 
756 vf ed area is unlocked. the IRPE is deallocated, and the 1/0 
Poe is either completely backed up or aborted. 
759 
760 LOCK_BFR: 
00000000 * GF 16 761 JSB AS aatehecmae : Lock buffer into memory 
3 «OC 166 BLBS RO,90$ 3; Success!!! 
ne: : Got a lock failure. Unlock ei OPT locked area if there is one. 
OF 68 766 PUSHR #*M<RO,R1,R2,R3> ; Save registers 
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2c AS 7 767 CLRQ IRPSL_SVAPTE(R3) 3; Cleanup IRP so that we don't 
£68 unlock same area twice 
2A A3__ 0800 8F AA g BICW #1RPSH EXTEND IRPS$W_S srsck3) : Clear extend bit 
53 2C AA 09 770 MOVL RPESL-SVAPTE1(R10)-R3. ; Get SVAPTE 
19 4 Beet ia EQL $ : No area previously locked 
2] 2 AA 3C F ore MOVZWL IRPESW a Tae Se RI 3; Get byte offset 
2 4 AA 90 ; 77 L RPES shan T1(R10) ,R2 ; Get byte count 
51 _O1FF cihe 3 774 MOVAB TVCRIT Red Ri 3; Combine offset and count and round 
1 7 8F 78 Q23D 775 L VA YTE,R1,R1 ; Convert to number of pages (to unlock) 
00000000'GF 16 8 r £76 JSB G"MMGSONLOCK z Unlock the pages 
8 : o78 10$: 3; Now deallocate the IRPE. 
50 SA 00 0248 780 MOVL R10,R0 ; Address of packet 
Q0000000'GF 16 0248 #781 JSB G*EXESDEANONPAGED ; Deallocate it 
OF BA os3t A POPR #*M<RO,R1,R2,R3> ; Restore registers 
05 0253 784 90$: RSB ; On success returns to caller, 
0254 785 3; On failure returns to EXESMODIFYLOCKR 
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: 787 -SBTTL STARTIO = Entry point to start 1/0 

5 3 p++ 

2 0 : FUNCTIONAL DESCRIPTION: 

5 This rout ing actually starts the DR32. It tees the 

2 required DR32 registers and clears the halt bit 

2 CALLING SEQUENCE: 

2 Jumped to through the driver dispatch table by IOCSINITIATE 

2 INPUT PARAMETERS: 

5 R3 Address of the IRP 

R5 Address of the UCB 


IMPLICIT INPUTS: 


Various fields in the IRP, IRPE, and UCB. In particular note 
that offset UCBSL_IRP in the UCB contains the address of the IRP. 


OUTPUT PARAMETERS: 
None 

IMPLICIT OUTPUTS: 
None 

COMPLETION CODES: 
Returned to REQ_COMPLETE: 
SSS$_POWERFAIL Adapter has no power 
SS$_MCNOTVALID Microcode is not valid 
SS$_BADPARAM Specified data rate is too large 

SIDE EFFECTS: 
None 

STARTIO: 


(C9 C9 CD CD CD CD CD C9 G9 CD 09 Cd OD Od Od CD C9 C9 09 CO 09 09 09 09 09 C909 INI INS 
IMIMIMPNINININD 2 2 PS OS HM OOOOOOCOOCOCOCOCWOOOOOOOONO 


WR =O OONAULS WN OOWGF VOUS WIN (OOD NAUE WN OOO NAOUSWN"O OONOUS wr 


ta 


; Get address of first CSR into R4. Make sure adapter has power and 
3; then clear abort bit and parity error bit. 


ASSUME IDBSL_CSR EQ 0 
ASSUME UCB_VTADPPWRUP EQ 0 


MOVL UCBSL_CRB(RS) 
MOVL  acrest tATDeveC $ IDB(R1) ,R4 
BLBS presi. BEVSTS(RS) .5$ 


BRW 

5$: MOVZWL +44 K edtyg DR_DCR(R4) 
BICL R_OCR_M_D ABT,UCBS$L_DCR(RS) 
BISL WR TUTL=M- -PARERR: DR_UTC(R4) 


; Get address of CRB 

3; Get address of first CSR 

; Branch if adapter has power 

; Adapter has no power 

; Clear abort inverrupt bit 

:; Clear abort bit in DCR in UCB 
; Clear parity error bit (DR780) 
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SSD DPEDE PUPP PUPUPU UST 


o 

WwW 

oa 

co 

> 

uw 
Palm. 1 Ahad 
Ores — WOO 
000000909 09 09 0d G9 09 G9 CD CO C9 CD CD 
BEF FWA AIWWnon 


OOAO C5 “So940000 1 
04 AG 0000000 


ano 
oo 


80000000 8F 


OE 3D A3 
08000000 8F 
08000000 8F 

04 A450 


52. 54 AB 
29 68 AS (03 


51 0404 C4 


81 OC 
81 00000000'GF 
1 44 A2 


8 
81 4 A 
81 CA 
81 48 A 
81 404A 
81 38 A2 
2D 
. 
50 OC A4 
08 A4 1 
6 


1A 


> > “ern tp 
o@ce Gooo-a—->)>—> 


900 mm 


0090000000000 J 
‘C9. 0000 


(9 CO CD C9 C9 C9 CD CD 00. C9 CD CD C0 C9 GO. CD 0D CD: 
AAAS & 
AUS WY $$ OC OOVNOUS WhO 0Oo 


OO 0000000000000 000909090909 INI NN NNN 
MERI 9 OONAUE WHO OONOUSWN—O 


eC SCC EL 
‘co 


so 
MMM > NNNNU 9 OU "9 O WWW MMM OUI BW WOM POW DSromoeww rPOSSSOOS 
oO 
eo 


SOOSOOOCOCOOOCOCOCOCOOCOCCOSCOOCOOOOOCOCOCOOCOOCOO OOOO OOOOOOOOOOOOO 
=DOOODOCOCOCOCOCO RRR MMMMMMOOCVOVCVVCVCVVVTCVTCOVCVVOOOWWWVIOIWOrr Pr Powwow 


K 16 


= DR32 DRIVER 16-SEP-1984 00:21:1 AX/VMS Macro V04-00 P 1 
STARTIO = Entry point to start 1/0 =o FE 984 $3 :50:0 LORIVER. SREIXE DRIVER. MAR: 1 _ ( 
c8 BISL #OR_DCR_M_PARERR,DR_DCR(R4) ; Clear parity error bit (DR750) 


; Load Utility register with data rate and parity error abort bit. 
ASSUME XFSV_CMT_SETRTE £0 0 


MOVL  DR_UTL(R4),RO 

BICL  #DR_UTL_M_ENPEAB.RO 
#DREDCRM-ENPEAB, DR_DCR( 

BLBC TRPSB_FCAGS(R ), 108 


; Read contents of Utility register 
js ieee enable par. err. abort bit (DR780) 


; Branch if we shouldn't set rate 


CMPB IRPSB Pi ; Compare specified rate with maximum 
*LOCSGW_XFMXRATE ; allowed by SYSGEN parameter 

BGTRU $ 3; Rate too high - error 

MOVZBL #DR780_MAXRATE,R 


1 ; Get hardware maximum clock rate (DR780) 
38 V~DR750,UCB$W_DEVSTS(R5),7$ ; Branch if DR780 
— #OR7SO-MAXRATE,R1 ; Get hardware maximum clock rate (DR750) 


C 

P JRPSB_RATECRS) RI ; Compare specified rate with maximum 
BLEQU $ allowed by hardware and branch if ok 
BRW 60$ Rate too high - error 
MOVB IRP$B_RATE(R3) ,RO Set rate 


MOVB RO,UCBSL_DEVDEPEND(RS) Put rate into device characteristics 
BBS #Xx$V_CMT_DIPEAB,- Branch if we shouldn't set abort 
IRP$B-FLAGS(R3) , 20$ ; on parity error bit 
#OR_UTL_M_ENPEAB,R ; Set abort on parity error bit (DR780) 
BISL  #DR-DCR-M"ENPEAB,DR_DCR(R4) ; Set abort on par. err. bit (DR750) 
MOVL RO, BR_UTLTR4) ; Load Utility register 


; Load up the rest gt the DR32 registers. 

; Note that the DR780 registers are directly addressable while 

; the DR750 registers are accessed by loading the register number 

; into the DR_WCSA register and reading or writing the DR_WCSD register. 


MOVL IRPSL_EXTEND(R3) ,R2 : R2 points to IRPE 
BBS #UCB_0_DR750,UCB$W_DEVSTS(R5),30$ ; Branch if DR750 


; Load DR780 registers 
MOVAL ODR_780_SBR(R4),R1 ; R1 will step through registers 


; DR_SBR = contents of sys. base reg. 
= address of global page table 


MOVL  G*MMGSGL’GPTBASE,(R1)+ ; DRIGBR = 

MOVL IRPESL_CBLKADR(RO) ,(R1)+: DR_CMDBVA = address of command block 
MOVL RPESL_BCNT1(R2),(R1)+ ; DR_CMDLEN = Length of command block 
MOVL IRPESL“SVAPTE (RE). (R1) +; DR-CMDSVAPTE = SVAPTE of command block 
MGVL RPESL_BBLKADR(R2),(R1)+; DR_BFRBVA = address of buffer block 
MOVL IRPESL_BCNT2(R2) (R1)+ ; DR_BFRLEN = Length of buffer block 
MOVL JRPESLSVAPTEC(R2) , (R1) +; DR_BFRSVAPTE = SVAPTE of buffer block 
BRB 5$ 

; Load DR750 registers 

MOVL #OR_750_SBR,R1 ; R1 will step throug registers 

MOVAL DR_Q@CSDTR4),RO : RO will point to WCS data register 
MOVAB (R1)+,DR_WCSA(R4) ; Store address of next register 


MFPR = #PRS_SBR7(RO) ; DR_SBR = contents of sys. base reg. 


; Clear enable par. err. abort (DR750) 
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XFDORIVER - DR32 DRIVER 16-SEP-1984 1:1 AX/VMS Macro V04-00 Pa 0 
YOenO STARTIO = Entry point to start 1/0 -SEP-1 138 88: $4; 08 YORIVER. SRCIXFDRIVER.MAR; 1 = ¢8) 
60 O0000000°GF oD 15 38 MOVL G*MMGSGL_GPTBASE,(RO) ; DR_GBR = address of global page table 
60 44 A2 0D 3 9 : MOVL  IRPESL_CBLKADR(R2),(RO) : DRICMDBVA = address of command block 
6 34 Ao D 90 MOVL IRPESLIBCNT1(R2),(RO)  : DRICMDLEN = Length of command block 
60 f A D 4 904 MOVL [RPESL-SVAPTET (RE) . (RO) 5 DR_CADSVAPTE = SVAPTE of command block 
60 4B A dO 8 905 MOVL IRPESL_BBLKADR(R2),(RO) ; DR_BFRBVA = address of buffer block 
60 $8 A dO 5 44: MOVL IRPESL_BCNT2(R2) (RO) ; DR-BFRLEN _— of buffer block 
60 38 A dO 0334 sith MOVL IRPESL “SVAPTE2 (Re) , (RO) 3; OR ~BFRSVAPTE VAPTE of buffer block 
8 "4 44 35$: ; Check for WCS valid and start the DR going! 
z 911 DSBINT #31 ; Raise IPL to 31 
04 A4 00000800 F d3 3A 3¢ BiTL #OR_UTL_M_VALID,DR eae % Is WCS valid? 
64 0700 8F 3C 40344 914 MOVZWL #DCR_K_CLRHLT,DR_DCR(R4) s tleer Sole function 
0349 915 ENBINT :Lower IPL 
05 baee 916 RSB 
0340 917 
0340 918 
0340 8919 
8320 $31 40$: ; Error - Adapter has no power 
50 0364 8F 3C 60340 a ¢ MOVZWL #SS$_POWERFAIL,RO ; Status 
0D 11 0352 9 BRS 70$ 
0354 924 3 
0354 925 50$: 3; Error - WCS not valid 
0354 926 
0354 927 ENBINT ; Lower IPL 
50 O35C 8F 3c 60357 928 MOVZWL #SS$_MCNOTVALID,RO 3; Status 
03 11 0O35C¢ X44 BRB 70$ 
O35E 930 ; 
O35E 931 60$: ; Error - Data rate too high 
035E aa$ 
50 14 3C Be2e 837 MOVZWL #SS$_BADPARAM,RO 3; Status 
bee! O82 70$: : Complete 1/0 with error in RO 
51 D4& 0361 937 CLRL R14 ; Clear second half of 1/0 status block 
0136 «631 «(0363 «938 BRw REQ_COMPLETE 
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SEP-1984 00:21:1 AX/VMS Macro V04-00 
$8 :50:0 
-SBTTL INTERRUPT_SVC = Interrupt service routine 


++ 

FUNCTIONAL DESCRIPTION: 
This is the interrupt service routine for DR32 interrupts. 
It reads the OCR register, clears the interrupting condition(s), 
and calls HANDLE_INT to handle the mgt Note that this 
routine executes at device IPL while HANDLE_INT forks and 
therefore executes at fork IPL. 
; CALLING SEQUENCE: 


JSB from interrupt vector in CRB. This routine cleans up 
the stack and does an REI. 


INPUT PARAMETERS: 

; None 

; IMPLICIT INPUTS: 

The stack on entry is as follows: 


O(SP) Address of IDB address 
4(SP) Saved R 
8(SP) Saved R 
12(SP) Saved R4 
16(SP) Saved R5 
20(SP) Interrupt PC 
24(SP) Interrupt PSL 
: OUTPUT PARAMETERS: 
None 
; IMPLICIT OUTPUTS: 
None 
COMPLETION CODES: 
None 
; SIDE EFFECTS: 
None 


ASSUME IDBSL_CSR+4 €£Q IDBSL_OWNER 
ASSUME DR_DCR_V_PWR_DN EQ DR_DCR_V_PWR_UP+1 


INTERRUPT _SVC: 
MOVL a(SP)+,R3 : Get address of IDB in R3 
MOVG  IDBSL_CSR(R3).R4 : CSR => R4, UCB=> RS 


3; Get contents of DCR and OR into DCR in UCB 
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- 0D DRIVER 16-SEP-1984 AX/VMS Macro V04-00 Page 
INT PT_SVC = Interrupt service routin g-SEF | 7 88: $9; 08 YORIVER. SRCJ SXFDRIVER.MAR: 1 . 
C 7 
5 i) C 9 MOVL DR_DOCR(R4) RS ; Get DCR 
00A0 23 $3 C8 i , s BISL R35, UCBSL_DER(RS) ; OR into DCR in UCB for use after FORK 
74 «4 
4 1 § ; Clear ingerrups ing conditions. Note that if there is a 
4 1 : ¢ Power up/down ii then those bits are jammed into 
oe : : the DCR in the U 
05 13 4 74 «1 $ #DR_DCR_V pat INT,R3,10$ ; Branch if not packet interrupt 
64 00 8F ¢ 0378 1 AOVZUL #0CR x CLRPKT INT DRDCRChs ; Clear packet interrupt 
05 12 4 7D 1 § 10$: BBC R_BCR_V_DCR RABT RSS $ Branch if not abort interrupt 
64 00 8F 11 MOVZWL #DCR K CLRABTINT ;DR-DCR«RA) ; Clear abort interrupt 
64 D 1010 208: MOVL DR_DCRTR4) ,R2 Get DCR 
og 11 «EI 1011 BBC #OR_OCR_V_OCRHLT.R2,26$ : Br if halt not set 
52 C0000 8F D3 D 1919 BITL #OR ~DERTMTPKTINT is 
oo 32 ! Fs ore DR-DCR_M_DCRABT, R2 : Is 7 ot of these bits set? 
OOA0 8 4g 44464 rf cS 96 1015 BISL #DR_DOCR_M =pCanet UCBs. periRs) : Else set the halt bit 
0000 8F OD rf \ 16 268: BITL a per “hp PUR aa a3 ; Power up or power down bit set? 
1E 13 1918 BEQL ; No. 
9g 18 EF ne a EXTZV age DCR_V_PWR_UP,#2,- ; Extract power up and power down bits 
1 52 FO o AD 1021 INSV RS ;#DR_DCR_V_PWR _UP,- § Insert them into DCR in UCB 
00A0 f 0 0 1 ¢ ‘UCBSL_DCRTRS)~ 
05 16 «€1 4 1 BBC 758 DCR 0 PwR_UP,R3,30$ ; Branch if not power up interrupt 
64 0100 8F 3c 8 1024 MOVZWL #0cR K tL RPUROP - bR_OCRO i : Clear power up interrupt 
05 53 = 17 1 D 1025 30$: BBC R BCR V RRBs 40$ Branch if not power down interrupt 
64 0200 8F C ‘} ! $ MOVZWL *DCR. K "CURPURBN. bR_ BcRiRA) 3; Clear power down interrupt 
ct 1 8 40$: : Test and set interlock bit. Purpose of interlock bit is to 
C6 1 ; prevent FORKing while the FORK block is in use as a result of 
5 8 ? 3; @ previous interrupt. 
01 €2 ce 10 § BBSS #UCB_V_FKLOCK,=- : Branch if interlock is set 
02 68 AS cs 1084 UCB$Q_BEVSTS(RS) ,50$ 
07 «#610 0 : 15 5 BSBB HANDLE _INT ; Handle interrupt (at fork IPL) 
2 Ht 50$: : Finish cleaning up stack and return from interrupt 
52 8€ 7D CdD 1039 MOVa (SP)+,R2 ; Restore R2 and R3 
54 B8E 7D 4 1959 mMOVa (SP)+,R4 : Restore R4 and R5 
02 D 1041 REI 
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00 HANDLE _INT = Handle the interrupt Br3Eb=19 4 89:30:00 DRIVER. SRCIXFDRIVER.MAR; 1 -” 


-SBTTL HANDLE_INT = Handle the interrupt 


++ 
FUNCTIONAL DESCRIPTION: 


This routine actually handles the interrupts. It is called 
by INTERRUPT_SVC at device IPL but immediately forks to fork IPL. 
e 


: re are four interrupting conditions: power up. power down, 

3 abort, and packet interrupts. This routine checks for all of these 

; conditions. if meee is an 1/0 in progress, there are three possible 
; exits from this routine: If the DR is halted, then the 1/0 is 

: completed (with either a success or failure status code). If the 

; DR is not halted, then if no errors were detected the transfer 

3 continues. If any errors were detected, the transfer is aborted. 

; CALLING SEQUENCE: 

: BSBB from interrupt service routine 

; INPUT PARAMETERS: 

: RG Address of first device CSR 

3 RS Address of UCB 

: IMPLICIT INPUTS: 

: Offset UCBSL_DCR in the UCB contains the device DCR register 

: OUTPUT PARAMETERS: 

: None 
$ IMPLICIT OUTPUTS: 
; None 
: COMPLETION CODES: 
: None 
> SIDE EFFECTS: 
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HANDLE _INT: 
1OF ORK 


; Clear FORK interlock, get DCR from UCB, and clear OCR in UCB. 
This clear must be performed by a BICL as it is possible for 
; the interrupt service routine to OR in additional bits i 
between the get DCR and the clear DCR. These additional bits 
; will be handled by the next interrupt. 


PL UCBSB_DIPL(RS) ; Raise IPL to prevent race condition 


Tl 
CW UCB_A_FKLOCK,- : Clear fork interlock 
UCB$@_BEVSTS(R5) 
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DRIVER 16-SEP-1984 00:21: AX/VMS Macro v04-00 Page 
HANDLE_ Nt - Handle the interrupt $78 pa} 984 8:50:00 DRIVER. SRCIXFDRIVER.MAR; 1 . 
OOA0 dO MOVL UCBSL_DCR(RS),R 3; Get DCR from UCB 
b6a0 09 $3 CA 9 BICL R Ucest DCR(RS ; Clear DCR in UCB 
j SETIPL ucé B FIPL(RS) : Lower to fork IPL 
00OA8 CS) «=—52~—iéi ? OVL R2,UCBSL_SAVDCR(RS) ; Save DCR for reg. dump routine 
53 58 A5 0 5 OVL UCBSL_IRPC(RS) ,R3 : Get address of IRP (if there is one) 
50 (01 MOVZWL #SS$_RORMAL,RO ; Assume success 
LRL 3; Clear second half of 1/0 status block 
Now test for cause of interrupt. The possibilities are: 


1 

t 

) Power up interrupt 
) Power | a interrupt 
) Abort interrupt 

) Packet interrust 


; Test for power up interrupt 
BBC #D0R_DCR_V_PWR UP Re .c08 ; Branch if not power up interrupt 


BISW #UCB_M_ADPPwROP,UCBSW_DEVSTS(R5S) ; Set adapter power up bit 
BBC #OR BCR V_DCRHLT,R2,20$ : Branch if device is not halted 
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60$: : Come here with 1/0 status block in RO and R1. If OR is halted, 
: send IRP 9 request complete. If the DR is not halted, return 
: if status is success and abort the DR if the status is failure 


; or if an abort is pending. 


BBS #OR_DCR_V_DCRHLT,R2,- ; Branch if device is halted 
REQ” COMPLETE 3 to request complete 
BBS #UCB_V_ABORT,= ; Branch if an abort is pending 


50 64 MOVZWL #SSS$_POQERFAIL,RO : Load powerfail status 
208: 3; Test for power down interrupt 
0D 3 w BBC #DR_DCR_V_PWR_DN,R2,30$ ; Branch if not power down interrupt 
68 AS «601 AA BICw  #UCB_M_ADPPWROP,UCB$w_DEVSTS(RS) ; Clear adapter power up bit 
64 AS 0 AB BISW #UCBSM- POWER UCBSW_STS(R5) ; Set powerfail bit in UCB 
50 0364 8 3¢ MOVZWL #SS$_POWERFAIL,RO ; Load powerfail status 
308: : Skip remaining code if we don't have an IRP (UCB is not busy). 
0 E1 BBC #UCBSV_BSY,- : Branch if we don't have an IRP 
49 64 AS UCB$W_STS(R5) , DONE 
re ; Test for Abort Interrupt 
03 52. = 12 4 4 BBC #OR_DCR_V_DCRABT,R2,40$ ; Branch if not abort interrupt 
0086 0 r BSBwW ABORT_IAT ; Handle abort interrupt 
ri 40$: 3; Test for packet interrupt 
OF 52 13 «©€1 «(04 BBC #OR_DCR_V_PKTINT,R2 gee : Branch if not packet interrupt 
3F 4 PUSHR #*MZRO,R17R2,R3,R4,R5> : Have packet int. Save registers. 
QoF6 39 4 BsBy QUEUE xT“ ast > Queue packet AST 
05 5 E 4 BLBS RO, 508 ; Success 
1 bs 4 CLRL R ; Failure to queue AST 
6E 0 D 04 MOVa RO, (SP) ; Store status 
F BA " 50$: POPR #°A<RO,R1,R2,R3,R4,R5> ; Restore registers 
4 
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= DR32 DRIVER 16-SEP-1984 00:21: AX/VMS Macro V04-00 Page 25 | x 
HANDLE_INT = Handle the interrupt $78 Pa} 984 88:50:00 DRIVER. SRCIXFDRIVER.MAR; 1 . (8) $ 
08 A 445 1157 UCBSW_DEVSTS(RS) ,WAIT $ 
$f 83 E8 ret 118 BLBS NO DORE ; If status is success, return ; 
448 1160 ABORT: ; Abort the device by setting ext. abort. Save the status in RO in A 
448 11 ; the UCB for yse when the device interrupts with an abort interrupt. A 
ret 1} ; Note that this entry is called as a subroutine by CANCEL_10 . 
00A4 CS) 6550) =O 4 5 11 MOVL RO,UCBSL_SAVSTATUS(RS) ; Save status in UCB A 
4 1165 WAIT:  DSBINT ; Disable interrupts A 
64 e900 F 3 456 1198 MOVZWL #OCR_K_SETEXTABT,DR DcR(R4) 3; Abort the device A 
68 A 4 As 0458 11 BISW  #UCBMTABORT ,UCBSW_DEVSTS(RS); Set the abort pending bit A 
Bey 45F 11 3 BBS ayes V_FKLOCK,= : Don’t wait for interrupt if A 
OA 68 AS 461 11 UCBSQ_BEVSTS(RS) DONE : we already have one a 
464 1170 WFEIKPCH TIMEOOT,# 3; Wait for interrupt - 2 second timeout 8 
tee 11ee ¢ 
46E 1198 DONE: ; Common return 0 
46E 1174 0 
05 46E 1175 RSB 0 
ter 117? D 
46F 1178 TIMEOUT: 0 
46F 1179 ; Come here (at device IPL) on timeout or powerfail while 0 
ree 1 ? 3; waiting for an abort interrupt. : 
OOA8 C5 4 0 O46F 11 ¢ MOVL DR_DCR(R4) ,UCBSL_SAVDCR(RS) ; Save DCR for reg. dump routine 0 
64 4000 8F 3C 0474 11 MOVZWL #DCR_K_RESET,DR_BCR(R4) ; Reset DR32 0 
64 0600 8F %3C 0479 1184 MOVZWL #OCR-K“SETINTENB,DR_DCR(R4) ; Enable interrupts 0 
47E 1185 SETIPL UCBSB_FIPL(RS) 3; Drop to fork IPL 0 
50 og2c Pa se oh 11 § MOVZWL #SS$_TIMEOUT,RO > Assume timeout status 0 
05 64 A 5 ‘ 487 11 C #UCBSV_POWER,UCB$W_STS(R5),10$ ; Branch if not powerfail 0 
50 0364 BF 40 3CsC4BC C1188 OVZWL #SS$_POWERFAIL > Set powerfail status D 
51 Q0A4 CS DO 0491 1189 108: MOVL UCBSC_SAVSTATUS(RS) ,R1 : Store saved status (reason for abort) in R 0 
00000000'GF 16 0496 1190 JSB G*ERLSDEVICTMO ; Error log timeout D 
49C 1191 : Fall through to complete request 0 
a 
49C 1194 REQ_COMPLETE: 0 
68 AS 96 AA 049C 1195 BICW #UCB_M_ABORT,UCBSW_DEVSTS(RS) ; Clear abort pending bit 0 
7E 50 7D O4A 1196 mova - : Save RO and R1 (1/0 status block) 0 
00000000 ' GF 16 Q4A3 119 JSB 6° foc$piagauF ILL 3 Fill Stognest \< buffer (if specified) 0 
50 8& 7D gear BP MOvVa (SP)+,R 3; Restore RO and R1 0 
4AC 119 REQCOM ; Complete the IRP. RO and R1 0 
0482 1200 3; contain 1/0 status block. } 
0 
C 
0 
C 
C 
C 
C 
C 
C 
C 
C 
C 
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KFDORIVER = DR32 DRIVER 16-SEP-1984 00:21: AX/VMS Macro V04-00 Page 2 
taal it ABORT_INT = Handle abort interrupts $78 pa198e 8:30:00 DRIVER. SRCIXFDORIVER.MAR; 1 ° 8) 
§ -SBTTL ABORT_INT = Handle abort interrupts 


++ 
FUNCTIONAL DESCRIPTION: 


This routine handles abort interrupts. It distinguishes among 
four cases. These are: 
Driver abort 
) User and far end device errors 
) Parity errors 
4) Qther DR32 errors (such as bus errors) 
This routine’s main purpose is to identify the cause of the abort 
ane Pe ag ay appropriate status in RO and R1 for use as the 
statu ock. 
This routine also error logs parity errors and DR32 errors (cases 
3 and 4 above). 
| 


CALLING SEQUENCE: 
BSBB ABORT_INT 
INPUT PARAMETERS: 
R2 Contents of DCR 
ms ddrens of deat “evice ¢S* 
IMPLICIT INPUTS: 
Offset UCBSL_SAVSTATUS in the UCB contains the status for driver aborts 
OUTPUT PARAMETERS: 


RO First longword of 1/0 status block 
R1 Second longword of 1/0 status block 


IMPLICIT OUTPUTS: 
None 
COMPLETION CODES: 


RO status left in UCBSL_SAVSTATUS for driver aborts, 


ins 
EVREQERR for user and far end device errors, 
ARITY for parity errors, and 

TRLERR for other errors. 

R1 r er iver aborts, and 

mbination of bits from the DCR, UTILITY, and DSL 
sters for all other errors. 


SIDE EFFECTS: 
None 
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XFORIVER = DR32 DRIVER SEP-1984 AX/VMS Macro V04-00 P 27 
Bisel ABORT_INT = Handle abort interrupts "rep = 1 98e 69: $4: 08 DRIVER.S SRCSRFDRIVER.MAR; 1 sos (9) 


wa 


; Test for Driver abort. 


| 
482 1 
4B2 1 
08 35 18 €1 is 1 BBC #OR_DCR_V_EXTABT,R2, 1s? 3 ; Branch if not driver abort 
50 AG f DO 0486 1 MOVL ures. SRVSTATUS(R5).RO : Get status saved when driver set abort 
1 Be r+} ! t CLRL 3 qocens longword of I0SB is 0 
; Retu 
4BE 1265 
| 48— 1 i 10$: ; Collect bits for qocone ts longword of 1/0 status block as all 
rt: ! ? ; other errors require th 
4BE 1 8 ASSUM DR PSb-0 wcste il DR_DCR_V_WCSPE 
rt] ! 5 ASSUM 5 “DSL 
07 68 AS) 6(03')—C iE 4BE 1 ys BBS Ty \- pR750, at he pevsTs(n?) . 20$ ; Branch if DR750 
51 0400 ‘ f' rt: : 7 poe 8 “DSL (RS Start out with all of the DSL 
08 AG D4 O4CA 1275 208: CLRL oR S eSAcRa) ; Store cut with mentor to get DSL 
51 C AG 1) 4CD 1 6 MOVL DR-WCSD(R4) ,R1 3; Start out with all of the DSL 
52. 5500 BF B83 0401 1277 30$:  BITW  #DR_OCR_M_IOTERR!- : OR these four bits into 1 bit 
re : 4 ees at ; These are sort of bus errors 
D6 1280 BR “DCR “An 1DSTO. R2 
064 13 0406 1281 BEQL 408" 3 None of those bits were set 
00 51 18 c¢ 4D 1 § BBSS cel ey 10S_BUSERR,R1,40$ : Set bus error bit 
04 ef OF € o0e 1 408: BBC #0R_OCR ov: “RDS ,R2,4 ; Branch if Read Data Substitute not set 
00 51 1¢ E3 EO 1284 BBSS aur Sv 16 $ ROSERR. R1,45$ ; Set Read Data Substitute error 
50 04 A4 OD ret ! 5 458: MOVL DR_UTC(R : Set rpits” re ister (contains parity 
rror $ on 
03 68 AS 93 E1 bees 1 39 BBC #UCB_V parse, UCBSW_ DEvsTE (RS). 508 Branch if DR780 
50 2 0 4ED 1 38 MOVL R (for parity err bits on DR750) 
50 50 €4 er 4F0 1289 50$:  ASHL  #-DR_UTL_V_WCSPE,RO,RO t ohh ee 3 parity error bits to bit 0 
1p 30 FO re 1 30 INSV R04) WRFSVIIOS_WCSPE,- : and insert in R1 
4FA 1 3 
ire : 32 ; Test for controller error (SS$_CTRLERR) : 
51 18000004 8F D3 O4FA 1295 BITL ag 10S_BUSERR!- 3; Test for bus error, x 
501 1 38 XFSM_I1OS_RDSERR!- 3 read data substitute error, x 
501 129 XESS 10S_INVPTE,R1 : and invalid PT x 
1¢ 612 0501 ' 38 BNEQ 60$ 3; Have a controller error 
| ' 89 ; Test for Parity error (SS$_PARITY) - 
50 174 BF 3 1 MOVZWL #SS$_PARITY,R : Assum x 
0009008 SF Ds : 1 5 BITL #XFSA_10S nutSPE!- : Test for W WCS parity error, x 
SOF 1304 XFSM-IOS-CIPE!- : control interconnect parity error, x 
SOF 1305 XESAT 10S-DIPE,R1 ; and data interconnect parity error x 
3 6 ' ! $ BNEQ 70$ 3; Have a parity error x 
311 \ 8 3; Test for user or far end device error (SS$_DEVREQERR) 
50 0334 BF 3 11 #1 MOVZWL #SS$ be yececna ® 3; Assume yes 
51 008018D0 8F BS 516 1 18 BITL our sh_i0 Os. pb1Dis! : Test tot DDI disable, 
1 1 F$m71OSoRN RR! = : unat error 
1D 131 XFSAc108"UNG ERRi- ; yuna gned Qu queue error, 
1D 1514 XFSM_IOS_INVPKT!= : invalid packe 
51D 1315 XFSM_IOS_FREGMT!- ; free queue cnede 


_—————— 


KFDRIVER = DR32 DRIVER 16-S 4 AX/VMS Macro Vv04-00 Page 2 
yOu 008 ABORT_INT = Handle abort interrupts §: Ep 7198 88: $5; 08 YORIVER. SRCIXFDRIVER.MAR; 1 . 8) 
10 «131 XFSM_IOS_INVDDI!- 3 invalid DDI command, 
10 131 ti Hs PS 3 length yan 
10 131 <XFSM_IOS_ODIERR @ - 3 and DDI er 
1D 1 XFSV_IOS_DDISTS>,R1 : CDDIERR bit. avet be shifted over) 
0S =(12 10 1 BNEQ 70$ 3 cove one of those 
| | oe 3; Note: Branch to “50s if 
1F 4 ¢ 3 ot DEVREQERR errors should 
| Ba ¢ not be error logged. 
rig, 
SIF 1 8 : None of the error bits are set so we have to treat it as a 
iF ! ; : controller error (SS$_CTRLERR). Fall through to ... 
Sif 1 , 
50 0054 BF 3 ay ’ » 60$: MOVZWL #SS$_CTRLERR,RO 3; Status 
00000000'GF 16 ; 2 : § 70$: JSB G*ERLSDEVICERR ; Log device error 
5S2A 1334 80S: 3; Common return 
83 A 1335 
05 O52A 1336 RSB 
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XFORIVER = DR32 DRIVER 16- 4 00:21: r 
Rent QUEUE _PKT_AST = Queue packet AST $28 Pa} 984 88 :50;09 DRIVER. SRCIXFORIVER.MAR; 1 
-SBTTL QUEUE_PKT_AST = Queue packet AST 
3++ 
; FUNCTIONAL DESCRIPTION: 
This routine is called to queue an AST to the user process and 
set an event fag fo indicate that a packet was placed on the 
process's termination gueve. Both queueing the AST and setting 
the event flag are optional; either or both may occur. An AST 
5 is queued if a peckes AST address is specified in the 1/0 packet 
5 and the event flag is set if the modifier IOS_SETEVF is present 
2 in the 1/0 subfunction code. Note that this foutine forks to 
2 Queue AST IPi before queueing the AST or setting the event flag. 
; CALLING SEQUENCE: 
: BSBW QUEUE _PKT_AST 
; INPUT PARAMETERS: 
5 R3 Address of 1/0 packet 
: R5 Address of UCB 


IMPLICIT INPUTS: 
Various fields in the 1/0 packet 
OUTPUT PARAMETERS: 


RO Completion code 
IMPLICIT OUTPUTS: 
None 
COMPLETION CODES: 
SS$_NORMAL Normal successful completion 
SS$_INSFMEM Insufficient dynamic memory (to allocate an ACB) 


SS$_EXQUOTA Exceeded AST quota 
SIDE EFFECTS: 
R1,R2,R3,R4 and RS are not preserved. REPEAT RS!!! 


Be Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Fe Be Ge Ge Ge Ge Ge Ge Se Se Ge Ge Se Se Ge Sse Ge Ss Ge Sete See 


QUEUE_PKT_AST: 


; Make sure the process has enough AST quota to allocate 
3; a FORK/AST block. 


PANO ODNA NEW OOD NA NESW HO OOO NAUN EWN OOO NOAU SW OOONOAUS WOO 


OOO O0909 69696909 69 6969 9 SI SIN NSN NN DPA PAA A AAA MMIII EPP 


PPP IAI AIA IAAI AAA 


SOQOoooooooooooQooQooQoQoQoQoooooooooooood: 


55 CAS. O3C MOVZWL IRPSL_PID(R3),R5 ; Get process index 
"GF §=6 DD PUSHL Gr SCHSGL peByec : Push address of PCB table 
E45 bd OVL  a(SP)+CR5),R ; Get PCB address 
50 1g MOVZWL #SS$ _EXQUOTA RO : Assume error 
38 A : TSTW  PCBS@_ASTCNT(RS) : Enough AST quota left? 
1E BLEQ 108 : No! 


ss 


J1 
vou=000" QUEUE-PRT_AST = Queue packet AST "S=3EP=1984 00:50:00 LDRIVER.SRCINFDRIVER.maR:1 9° (oy 
38 ASB? DECW PCBSW_ASTCNT(RS) ; Yes, take one away 
; Allocate a packet to be used as a fork block and AST control block 
MOVZWL {| alae cetatahitaatl 


PUSHL 
JSB G*EXESALONONPAGED 


51 00C4 ef 3¢ Length_= an 1/0 pkt because it's fast 
3 D 
i Save R3 


Returns paver to packet in R2 
Restore 


5 BLBS R gos ; Successful allocation 
50 0124 BF 3¢ MOVZWL #S$$_INSFMEM RO rror = insufficient dynamic memory! 
8 AS 6 INCW PCBSQ_ASTCNT(RS) ; Add 1 back to AST quota 

10$: RSB Error return 


20S: ; Put size and type into packet and then fork to Queue AST IPL 
3; which returns success status to caller 


ASSUME IRPSB_TYPE EQ IRPS$W_SIZE+2 
ASSUME FKBSB_FIPL EQ IRPS$B_RMOD 


OODIA AR WN GODIAM 
v 
o 
v 
c 


08 A2 000200C4 8F dO MOVL #<DYNSC_ACB@16>+IRPSK_LENGTH, IRP$W_SIZE(R2) : Size and y e 
0B A 06 90 MOVB #IPL$_QUEUEAST,FKBSB_FIPL(R2) ; Set fork IPL = Queue AST I 
5 52 4 MOVL R2,R 3; RS must point to fork block 
50. = (01 C MOVZWi #S$$_NORMAL RO ; Return normal status to caller 
FORK 3: Fork! 
: Build AST control block in preparation for queweine AST. 
: R3 points to 1/0 packet, R5 points to AST control block. 
ASSUME IRPSL_PKTASTPRM EQ IRPSL_PKTASTADR+4 
ASSUME ACBSL_-ASTPRM EQ ACBSL_AST+4 
51 OC A3 MOVL IRP$L_PID(R3) ,R1 3; Get PID and save for SCHSPOSTEF 
Oc aS 5} MOVL  R1,ACBSL_PID(R5) ; Store PID in ACB 
40 a3 MOVG  IRPSL_PKTASTADR(R3),- ; Store packet AST address and parameter 
10 A ACBSL_AST(R5) : in ACB 
0B A3 MOVB IRP$B_RMOD(R3) ,- ; Store access mode 
3 AS ACB$B_RMOD(R5) 
0B AS 40 8F BISB #ACBSA_QUOTA,ACBSB_RMOD(R5) ; Set AST quota accounting flag 


30$: ; Now post event flag if subfunction code specifies it 


MOVZBL #PRI$_IOCOM,R2 ; Priority incr. class = 1/0 complete 
C #IOSV~SETEVE ,IRPSW_FUNC(R3),.40$ ; Br. if don't post event flag 
MOVZBL IRPSB7EFN(R3) ,R3 : Get event flag number 


NTO Hh SD COVINOM COC COCO CIOS CIOONY MW MMDOOOOCOCOOCO MM NS Doe 


no PR 
an 


>>>> oh pit + 4 4-4 9 ty tpt PPRRRRR RRR NS NN SN SH Ne ee 
, are err 


JSB G*SCHSPOSTEF ; Post event flag 
40$: : Now either queue AST or deallocate AST control block. 
10 a5 OD TSTL ACBSL_AST(RS) : Is AST specified? (Address non-zero)? 
06 1 BEQL 50$ 3; No, deallocate ACB 
00000000°GF 1 JMP G*SCHSQAST 3 4 i queue AST. SCHSQAST returns to 
; caller. 


>>>>> 
AOOOON 


50$: ; Don't give AST, so deallocate packet. 


MOVZWL ACBSL_PID(RS) ,R2 ; But first increment AST quota 


52 0c 
PUSHL  G*SCHSGL_PCBVEC : Push address of PCB table 


AS 
00000000'GF oD 


a ee a ed ed ed a = od wt = SS 8 Ss 2 2 4 2 1 2 1 
SSS ee ee ae ae ee tt et et et et ee oe eee ee ee 


ra a bbb bb dh Ab db Addi dibdb dibdhd ib -dbadhb-dhded bedhead bedbedh Ab db sh sh sh sh sh db db dh dh dh db db db dh dh dh dh dh duh deh db dh db dah deh dh) 


| 


=OODNANE WIN 9 OD NOAUE WIN O OOD NAULS WIN $$ O OONOUS Wr 


o»r 
o~7m 


a 


kK 1 
YOL=008 QUEUE PRTUAET = Queue packet AST "SSE =13RC B0:30:08 YORIVER.caeceroeiver.mar;1 2% cfd) 
ee ea re 
cit GF 0 1455 one G*EXESDEANONPAGED ; Deal locate packet. 
56 1456 3; returns to caller 


au 
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-SBTTL CANCEL_I0 = Cancel 1/0 routine 


KFORIVER = DR3 
yOu-005 CANCE 


os 
‘< 
m 
om 


This routine performs the Cancel I/0 function. If the UCB is 
busy, then the channel index and process id in the IRP are 
compared with those passed by the caller. If they match, then 
this routine calls ABORT which aborts the DR32. 

CALLING SEQUENCE: 
BSBW CANCEL_10 


INPUT PARAMETERS: 


++ 
; FUNCTIONAL DESCRIPTION: 


Re Channel Index 
Ra rcens Sroteet PCB address 
R5 address of UCB 
IMPLICIT INPUTS: 
None 
OUTPUT PARAMETERS: 
None 
IMPLICIT OUTPUTS: 
None 
COMPLETION CODES: 
The 1/0 (if any) is completed with status SS$_ABORT 
SIDE EFFECTS: 


None 


dabei dhl hae dich ch ch hah cheb dich cb ch chh ada ch hb hah cade sch “dich cde ch edhch “dhch “dich “dich “ci sdldh cb edie elu “cde “cl 


POAOOIOAIOAOOOOIOOIOOAIAAOOOAOOAOAAMAOAMAAAOOMAOO eo 


7 OOCOCG9O9.G9 ODD OD D> 2 $F I PAPA AAA AAAA AAA AA AAPA AAAAAIAAAASISAIAAOAASSASASOSSS OFF 


CANCEL_10: 
BBC 


ee ee ee ee oe oe ee oe oe oe oe ot ot ot ot ot ot ot ot ot et ot ot ot tt ee ee ee ee oe 


#UCBSV_BSY,UCBSW_STS(R5),.60$ ; Branch if UCB is not busy 
CMPW R2, IRPSW_CHAN(R3) ; Compare channels 


>: No match 
CMPL PCBSL_PID(R4) , IRPSL_PID(R3) : Compare process id's 
60$ 3 No match 


“Hs 


E 
OC AS 60 A4 
17 


-—o-gm 
MN — 


4 

5 

5 3; Channel and process id's match. Check to make sure adapter 
3; has power. If it does, abort transfer. 
4 


ASSUME UCB_V_ADPPWRUP EQ 0 
ASSUME IDBSL7CSR £0 0 


BLBC UCBSW_DEVSTS(R5) ,60$ : Branch if adapter has no power 
PUSHL R4 Save R4 


ee a a a ne res aD ed a a a ht ad a ad 8 8 a) Sa 8 St ent at a a ss 


SOOSOOSOOCOOOOCOSOOOOSOOOOOOOOOOOoOoOSOO: 
PUPP 
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13 68 AS ED 
54 OD 
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r 
| 
| . } «SBTTL REGDUMP = Register Dump Routine 
fF 1 34+ 
; ! § : FUNCTIONAL DESCRIPTION: 
FO 1 § : This routine copies relevant DR32 registers into either a diagnostic 
FO 1 3 buffer or an error og buffer. It is cay ied from the error logging 
34 ! ? : routine and from the diagnostic buffer fill routine. 
: ; CALLING SEQUENCE: 
ar 4 ; JSB REGDUMP 
aE 13 $ : INPUT PARAMETERS: 
SF 13 3 ; RO Address of buffer to store registers 
5FO 1 3 RG Address of first device CSR 
2 1329 ; R5 Address of UCB 
SF 1348 : IMPLICIT INPUTS: 
5FO 1543; 
et i 
O5F 1346 : OUTPUT PARAMETERS: 
SFO 1547; 
i 
O5F0 1550 : IMPLICIT OUTPUTS: 
Bare 133] ; 
30 1388 — 
ber 1554 : COMPLETION CODES: 
Bar 1555 ; 
Baro 1880 | mae 
Oo 1358 ; SIDE EFFECTS: 
5FO 1559; 
OSFO 1560 ; None 
Burg tee) i 
SF 1 86 REGDUMP : 
03 €0O O5SF 1564 BBS #UCB_V_DR750,- 
05 68 A5 oF 63 UCBS$Q_BEVSTS(RS),10$ =; If set, yes DR750 
52 OF 00 ef 1369 MOVL #15,R2 ; Number of reg. in first DR780 group 
03 =o are 1308 BRB 208 ; Go start 
52 07 00 SrA i 10$: MOVL #7,R2 3; Number of reg. in first DR750 group 
80 2 D afb 1 20$: MOVL #40, (RO)+ 3; Store number of registers to be saved 
80 O00A8 C5 00 06 ie MOVL  UCBSL_SAVDCR(RS),(RO)+ : Store copy of saved DCR 
51 O44 A46 OD 6 1575 MOVAL ODR_UTL(R4),R1 3; Address of first register gro 
80 $1 op ? 9 1 6 30$: MOVL cares (RO)+ ; Store next register= sie: 
FA 52 sO#F 6 ¢ , SOBGTR R2,30$ Repeat 
03; €0 F 157 BBS #UCB_V_DR750,- 


— 


ae 


= DR32 DRIVER 
REGDUMP = Register Dump Routine 
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16-SEP-1984 
=SEP=1984 
UCBSW_DEVSTS(RS) ,50$ 
#24,R 
DR +6 DSL (RA) RI 
(RT) +, TRO) + 
R2,408 


89:80:00 


; If set, then DR750 


Sete tee 


AX/VMS Macro V04-00 
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; Number of registers in second group 
; Address of second register group 
; Store next register 


Repeat 
; Number qf registers in second 
; Set indirect register address 


; Address of data register 
; Stores next register and bumps adderss 


Repeat 


roup 
o zero 


| 
} 
DO ————————————————————_—OO 
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«SBTTL UNIT_INIT = Unit initialization 


XFORIVER = DRS 
VOu-000 UNIT tn 


ae 
FUNCTIONAL DESCRIPTION: 


This routine is entered when the driver is loaded and on 

system power recovery. On driver load, it init al tzes 

the UCB and sets the grote tion on the page containing 

the GO bit to user wr sae a } also determines which cpu type 
it is running on (11/780 or 11/750) and sets a bit in 
UCBSW_DEVSTS to indicate which one. 

On power recovery, it simply returns. Power recovery is actually 
handled in the interrupt handler. 


CALLING SEQUENCE: 
JSB UNIT_INIT 
INPUT PARAMETERS: 


R5 Address of UCB 
IMPLICIT INPUTS: 
None 
OUTPUT PARAMETERS: 
None 
IMPLICIT OUTPUTS: 
None 
COMPLETION CODES: 
None 


SIDE EFFECTS: 
RO, R1, R2, AND R4 ARE NOT PRESERVED 


NAME UN 9 ODNA NE WIN 9 OOO NA UNE WI O ODNOA UNE WI  O OONO 


Be Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Sse Ge Se Se Ge Se Sete tes 


UNIT_INIT: 
3; Determine if this is initial loading or a power recovery. 


BBS #UCBSV_POWER ,UCBSW_STS(R5),INIT_DONE ; Branch if power recovery 
3; Get address of IDB and first device CSR 

MOVL UCBSL_CRB(R5) ,R1 3 get address of CRB 
MOVL  CRBSLTINTD+VECSL_IDB(R1).R2 ; Get address of 1DB 

MOVL IDBSL_CSR(R2) ,R4 ; Get address of first device CSR 
; Make UCB owner of IDB and reset DR. 


MOVL R5, IDBSL_OWNER(R2) ; Make UCB owner of IDB 


5D 64 AS 05 €0 
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: INCB UCBSB_DEVTYPE<R5) 


Ooo 
DDD DDD DDD DPE DPD AAA AA AA AA AAA AAA AAA AAAS 
APP PPPPP IPP IIIS 


an 
690909090909 08 INI NIN NIMIWIWEM OO OOS SLL LLL LL EEE 


oo 
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WOVZWL #DCR_E_RESET DR DCR(RG) ; Reset DR- 
MOVZWL #DCRIKSETINTENB,DR_DCR(R4) ; Enable interrupts 


3; Set protection on page containing GO bit to user mode writeable. 


MOVAL OR togieh Laghy ; Get address of GO bit 

EXTZV #VKSV_VPN,#VASS_VPN.RO.RI ; Get virtual page number 

MOVL “mncs SPT ASE ,R2 ; Get address of grates page table 

MOVAL R2)CRIIJ,R2 3; Get address of PTE that maps GO bit 

INSV #PRTSC_UW 7” TESy PROT. ; Set protection in appropriate PTE 
#PTESS-PROT, (R2) 

INVALID RO : Invalidate translation buffer 


3; Assume adapter has power so set adapter power up bit 
BISW #UCB_M_ADPPWRUP ,UCBSW_DEVSTS(R5) 


Now determine which type of DR32 we have by peeing 
what type of cpu we have. Current iy the only DR52s 
ed are the DR780 and the DR756. If we (somehow) get 
y other cpu type, about all we can do is not set the online 
in the UCB. Also note that we set a bit in the UC 
to indicate which type of DR32 we have. In the rest of the driver 
we key off of this bit, rather than using the CPUDISP macro. 


ASSUME DT$_DR750 EQ DT$_DR780+1 

MOVB #0T$_DR780,UCBSB_DEVTYPE (RS) 3; Assume device type is DR780 
CPUDISP <DR_780,DR_7'10,DR_730,DR_790>  ; * Dispatch on CPU type * 

T ; Make device type be DR750 
BISW  #UCB_A_DRYSO,UC@SW_DEVSTS(RS) ; Set DR750 bit in UCB 

Fall through to ... 


; Same action as for DR780. 


90: 3 
: BISW #UCBSM_ONLINE ,UCBSW_STS(R5) 3; Set online bit 


3; * End of cpu dependent code * 


INIT_DONE : 
RSB 


; End of driver 
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PSECT name Allocation PSECT No. Attributes 

. aes ® ( 8.) 0 ¢ 9.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS ( 1060.) 01 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE AD WRT NOVEC BYTE 
Bee e-PRO OGLE sf ( 4°} § ( §°} NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC BYTE 
$$$115_DRIVER 698 ( 1688.) ( -) NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC LONG 
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Phase Page faults CPU Time Elapsed Time 
Initialization 3 O: +08 0 0: : 1.94 
Command processing 1 ; :00: 3. 4 0:00:05.57 
cess table sort . if ‘ “BS 0; { 4 
Pass 2 290 :00: 2:26 : 0: 6-9 
Symbol table output 34 0:00:00. :00:00.6 
Psect synopsis output 0:00:00.0 0: 3: 0.0 
Cross-reference output 0: 3: 9 0:00: 3-8 
Assembler run totals 109 0:00:26. 0:01:42.9 


{he vert ing set Limit was 2400 pages. 

15914 eytes (311 pages) of virtual memory were used to buffer the intermediate cod 

There were 140 pages of symbol table space allocated to hold 2605 non-local and 65 Tocat symbols. 
source Lines were read in Pass 1, produc ~'t 20 object records in Pass 2. 

60 pages of virtual memory were used to define 56 macros. 


os 


Macro Library name Macros defined 
5 $25580UA28: CSvs-08/)L18.§ 40 
$255$DUA SYSLIBISTAR ET Bile: é 11 
TOTALS (all Libraries) 51 


2870 GETS were required to define 51 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:XFDRIVER/OBJ=0BJ$:XFDRIVER MSRC$:XFDRIVER/UPDATE=(ENHS$: XFDRIVER) +EXECMLS/LIB 
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